home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / Archiv / show_opus5.lha / show_opus5 / Install < prev    next >
Text File  |  1996-08-15  |  13KB  |  428 lines
  1. ; * $VER: Install Animplaer for Opus5 1.0 (30-Jan-96)
  2. ; * Script written by Eckhard Ludwig
  3. ;=============================================================================
  4.  
  5. (complete 0)
  6.  
  7. (set defaultdest        "DOpus5:Arexx")
  8. (set GuideDir           "Dopus5:")
  9. (set Opt 2)
  10. (set PrefsPrompt        "Settings for the installed programmes.")
  11. (set MPEGPrompt         "Found old settings for SHOW_DT.dopus5.\n\nSelect 'no' for install new settings !")
  12. (set MPPrompt           "SHOW_DT.dopus5 needed ")
  13. (set MPPrompt2        "\nPlease select drawer or path do Player !")
  14. (set MPERROR            " is not installed or error do path !\nPlease install mpeg_play (from the amipeg05.lha package) do SYS:C/mpeg_play")
  15. (set PRPrompt             "Please select your prozessor")
  16. (set GRAFIKPrompt       "Please select Amigagrafik or Grafik-Card.")
  17. (set SCREENPrompt       "Please select Screenmode.")
  18. (set GuidePrompt        "For programm exists guide.")
  19. (set GuideDirPrompt     "Please select drawer for guide.")
  20. (set InstallPrompt      "Which of the following locale should be installed ?")
  21. (set Opus5DirPrompt     "DirectoryOpus not found ?\nPlease select path do DirectoryOpus !")
  22. (set Opus5Message       "Is DirectoryOpus correct installed ?\nPlease select drawer do DirectoryOpus5 or install DirectoryOpus5 first !")
  23. (set Opus5Help          "Is DirectoryOpus correct installed ?\nPlease install DirectoryOpus5 first !")
  24. (set Opus5Old           "Is version of DirectoryOpus 5.11 or later ?\n\nInstall programmes ?")
  25. (set Deinstallprompt    "Newer version of programmes exists!\nIm this delete ??")
  26. (set Opus5OHelp         "I need Version 5.11 or later of Directory Opus! Test version, see mpeg.readme.")
  27. (set ArexxDirPrompt     "Please select Arexx-Drawer for Playerscript !")
  28. (set RexxPrompt        "I need Arexx for run programmes.\n\nKlick 'Proceed' for add line\n'SYS:System/Rexxmast >NIL:'\ndo your 'User-Startup'")
  29. (set PlayerCopyPrompt   "Copy player ...")
  30. (set LocaleCopyPrompt   "Copy cataloges ...")
  31. (set FiletypesPrompt    "Copy filetypes ...")
  32. (set GuideCopyPrompt    "Copy guide ...")
  33. (set ToolsCopyPrompt    "Copy external players ...")
  34. (set OpusEdit           "Defaultdir for players is not standard (Dopus5:Arexx)!\nEdit Arexx-path AudioCD-Buttons and Filetypes.")
  35. (SET #exitMsg (CAT "Much fun with Programmes\nfor DirOpus5 wish you\n\n"
  36.                    "Eckhard Ludwig" ) )
  37.  
  38. ; deutsche Texte *****************************
  39.  
  40. (IF (= @language "deutsch")
  41. (
  42. (set Opt 1)
  43. (set PrefsPrompt        "Die neu installierten Programme müssen jetzt konfiguriert werden.\n\nEs werden Angaben zu Ihrem Amigasystem benötigt.")
  44. (set MPEGPrompt         "Es ist bereits eine Konfigurationsdatei für SHOW_DT.dopus5 vorhanden.\n\nSollen die alten Einstellungen übernommen werden ?")
  45. (set MPPrompt           "SHOW_DT.dopus5 benötigt als externen Player ")
  46. (set MPPrompt2        "\nBitte wählen Sie die Schublade, wo der Player installiert wurde, oder 'Weiter' !")
  47. (set MPERROR            " ist nicht oder unter einen abweichenden Namen installiert, oder die gewählte Schublade ist falsch !\n\nSoll ich die Voreinstellung benutzen, falls sie mpeg_play noch nicht installiert haben ?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")
  48. (set PRPrompt             "Bitte wählen Sie den Prozessortyp ihres Amiga.")
  49. (set GRAFIKPrompt       "Bitte wählen Sie die gewünschte Grafik bzw. die verwendete Grafikkarte.")
  50. (set SCREENPrompt       "Bitte wählen Sie die gewünschte Bildschirmdarstellung (Screenmode).")
  51. (set GuidePrompt        "Für das Programm existiert eine deutsche Anleitung.\n\nDiese können sie jetzt in ihre bevorzugte Schublade für Dokumentdateien installieren.")
  52. (set GuideDirPrompt     "Wohin soll die deutsche Anleitung kopiert werden?")
  53. (set Installprompt      "Bitte wählen Sie für die Programme Ihre bevorzugte(n) Sprachversion(en). Weitere Sprachen können auch nachträglich installiert werden.")
  54. (set Opus5DirPrompt     "Bitte wählen Sie die Schublade, wo DirectoryOpus installiert wurde!")
  55. (set Opus5Message       "Die zu installierenden Programme sind nur von DirectoryOpus5 aus nutzbar !\n\nIst DirectoryOpus5 korrekt installiert wurden ?\n\nBitte wählen Sie die Schublade, wo DirectoryOpus installiert wurde oder installieren sie DirectoryOpus5 zuerst !")
  56. (set Opus5Help          "Die zu installierenden Programme sind nur von DirectoryOpus5 aus nutzbar !\nIst DirectoryOpus5 korrekt installiert wurden ?\nBitte installieren sie DirectoryOpus5 zuerst !")
  57. (set Opus5Old           "Für die zu installierenden Programme wird mindesten Version 5.11 von DirectoryOpus benötigt.\n(siehe mpeg.readme).\nSollen die Programme installiert werden ?")
  58. (set Deinstallprompt    "Es ist bereits eine neuere Version des Player installiert!\nSoll dieser wirklich ersetzt werden ?")
  59. (set Opus5OHelp         "Ich benötige mindesten V5.11 von DirectoryOpus!")
  60. (set ArexxDirPrompt     "Die Programme sollten in das Arexx-Verzeichnis von DirOpus5 installiert werden!\nBitte wählen Sie eine Schublade für die Player-Scripte !")
  61. (set RexxPrompt        "Die Skript-Sprache ARexx ist im Lieferumfang von AmigaDOS enthalten, jedoch nicht verfügbar, bevor Sie nicht das Programm 'RexxMast' aufgerufen haben.\nEs wird empfohlen, ARexx immer zu starten.\nWenn Sie ARexx automatisch starten lassen möchten, klicken Sie auf 'Weiter', um ARexx von Ihrer 'User-Startup' aus starten zu lassen.")
  62. (set PlayerCopyPrompt   "Kopiere Player ...")
  63. (set LocaleCopyPrompt   "Kopiere Cataloge ...")
  64. (set FiletypesPrompt    "Kopiere Filetypes ...")
  65. (set GuideCopyPrompt    "Kopiere Anleitung ...")
  66. (set ToolsCopyPrompt    "Kopiere Softwareplayer ...")
  67. (set OpusEdit           "Das gewählte Playerverzeichnis entspricht nicht dem Standard (Dopus5:Arexx).")
  68. (SET #exitMsg (CAT "Viel Spaß mit den Programmen\nfür DirOpus5 wünscht\n\n"
  69.                    "Eckhard Ludwig" ) )
  70. )
  71. )
  72.  
  73. ;*********************************************
  74.  
  75. ; check if Directory Opus 5 is already installed
  76. ; check Version
  77.  
  78. (if (not (exists "DOpus5:DirectoryOpus" (noreq)))
  79.     ((message Opus5Message)
  80.     (set Opus5path (askdir
  81.     (prompt Opus5DirPrompt)
  82.     (help @askdir-help)
  83.     (default "Work:")))
  84.     (if (not (exists (tackon Opus5path "DirectoryOpus") (noreq)))
  85.        (abort Opus5Help))    
  86.     (makeassign "Dopus5" Opus5path (safe))
  87. ))
  88.  
  89. (if (> 327691 (getversion "DOpus5:DirectoryOpus"))
  90.     (if (not (askbool
  91.        (prompt Opus5Old)
  92.        (help Opus5OHelp)
  93.        (default 0)))
  94.     (abort Opus5OHelp))    
  95. )
  96.  
  97. ;*********************************************
  98. ; expertentest & versionstest older version
  99.  
  100. (if (= @user-level 2)
  101.   (if (not (exists defaultdest (noreq)))
  102.     (set defaultdest (askdir
  103.     (prompt ArexxDirPrompt)
  104.     (help    @askdir-help)
  105.     (default "Rexx:")
  106. ))))
  107.  
  108. (set @default-dest defaultdest)
  109.  
  110. (if (exists (tackon defaultdest "SHOW_DT.dopus5") (noreq))
  111.    ((set version (getversion ("dopus5:arexx/SHOW_DT.dopus5")))
  112.    (if (> version (getversion "Arexx/SHOW_DT.dopus5"))
  113.        (if (not (askbool 
  114.        (prompt Deinstallprompt)
  115.        (help @askbool-help)
  116.        (default 0)))
  117.           (exit (quiet)))
  118. )))
  119.  
  120.  
  121.  
  122.  
  123. ;*********************************************
  124. ; copy the files
  125.  
  126. (copyfiles
  127.    (prompt PlayerCopyPrompt)
  128.    (help @copyfiles-help)
  129.    (source "arexx")
  130.    (dest defaultdest)
  131.    (pattern "#?.dopus5")
  132.    (confirm "EXPERT")
  133.    (optional "force")
  134. )
  135.  
  136.  
  137. (complete 15)
  138.  
  139. (IF (= @language "All")
  140.     (set Opt 511))
  141.  
  142. (set installchoice
  143.    (askoptions
  144.    (prompt InstallPrompt)
  145.    (help @askoptions-help)
  146.    (choices "Deutsch" "English" "dansk" "français" "italiano" "nederlands" "norsk" "suomi" "svenska")
  147.    (default Opt)
  148. ))
  149.  
  150. (IF (BITAND installchoice 1)
  151.   (copyfiles
  152.    (prompt LocaleCopyPrompt)
  153.    (help @copyfiles-help)
  154.    (source "Locale/Catalogs/deutsch")
  155.    (dest "SYS:Locale/Catalogs/deutsch")
  156.    (pattern "#?.catalog")
  157.    (confirm "EXPERT")
  158.    (optional "force")
  159.   ))
  160.  
  161. (IF (BITAND installchoice 4)
  162.   (copyfiles
  163.    (prompt LocaleCopyPrompt)
  164.    (help @copyfiles-help)
  165.    (source "Locale/Catalogs/dansk")
  166.    (dest "SYS:Locale/Catalogs/dansk")
  167.    (pattern "#?.catalog")
  168.    (confirm "EXPERT")
  169.    (optional "force")
  170.   ))
  171.  
  172. (IF (BITAND installchoice 8)
  173.   (copyfiles
  174.    (prompt LocaleCopyPrompt)
  175.    (help @copyfiles-help)
  176.    (source "Locale/Catalogs/français")
  177.    (dest "SYS:Locale/Catalogs/français")
  178.    (pattern "#?.catalog")
  179.    (confirm "EXPERT")
  180.    (optional "force")
  181.   ))
  182.  
  183. (IF (BITAND installchoice 16)
  184.   (copyfiles
  185.    (prompt LocaleCopyPrompt)
  186.    (help @copyfiles-help)
  187.    (source "Locale/Catalogs/italiano")
  188.    (dest "SYS:Locale/Catalogs/italiano")
  189.    (pattern "#?.catalog")
  190.    (confirm "EXPERT")
  191.    (optional "force")
  192.   ))
  193.  
  194. (IF (BITAND installchoice 32)
  195.   (copyfiles
  196.    (prompt LocaleCopyPrompt)
  197.    (help @copyfiles-help)
  198.    (source "Locale/Catalogs/nederlands")
  199.    (dest "SYS:Locale/Catalogs/nederlands")
  200.    (pattern "#?.catalog")
  201.    (confirm "EXPERT")
  202.    (optional "force")
  203.   ))
  204.  
  205. (IF (BITAND installchoice 64)
  206.   (copyfiles
  207.    (prompt LocaleCopyPrompt)
  208.    (help @copyfiles-help)
  209.    (source "Locale/Catalogs/norsk")
  210.    (dest "SYS:Locale/Catalogs/norsk")
  211.    (pattern "#?.catalog")
  212.    (confirm "EXPERT")
  213.    (optional "force")
  214.   ))
  215.  
  216. (IF (BITAND installchoice 128)
  217.   (copyfiles
  218.    (prompt LocaleCopyPrompt)
  219.    (help @copyfiles-help)
  220.    (source "Locale/Catalogs/suomi")
  221.    (dest "SYS:Locale/Catalogs/suomi")
  222.    (pattern "#?.catalog")
  223.    (confirm "EXPERT")
  224.    (optional "force")
  225.   ))
  226.  
  227. (IF (BITAND installchoice 256)
  228.   (copyfiles
  229.    (prompt LocaleCopyPrompt)
  230.    (help @copyfiles-help)
  231.    (source "Locale/Catalogs/svenska")
  232.    (dest "SYS:Locale/Catalogs/svenska")
  233.    (pattern "#?.catalog")
  234.    (confirm "EXPERT")
  235.    (optional "force")
  236.   ))
  237.  
  238. (complete 35)
  239.  
  240. ;*********************************************
  241. ; copy filetypes
  242.  
  243. (copyfiles
  244.    (prompt FiletypesPrompt)
  245.    (help @copyfiles-help)
  246.    (source "filetypes")
  247.    (dest "DOpus5:filetypes")
  248.    (optional "force")
  249.    (confirm "EXPERT")
  250.    (pattern "#?")
  251.    (files)
  252. )
  253.  
  254. (complete 55)
  255.  
  256. ;*********************************************
  257. ; copy tools
  258.  
  259. (copyfiles
  260.    (prompt ToolsCopyPrompt)
  261.    (help @copyfiles-help)
  262.    (source "c")
  263.    (dest "SYS:C")
  264.    (pattern "#?")
  265.    (optional "force")
  266.    (confirm "EXPERT")
  267.    (files)
  268. )
  269.  
  270. (complete 65)
  271.  
  272. ;*********************************************
  273. ; ADD REXX TO USER-STARTUP
  274.  
  275. (if
  276.     (startup "ARexx"
  277.         (prompt RexxPrompt)
  278.         (help @startup-help)
  279.         (command "SYS:System/RexxMast >NIL:")
  280.     )
  281.     (run "SYS:System/RexxMast >NIL:")
  282. )
  283.  
  284. ;*********************************************
  285. ; set prefs
  286.  
  287. (message PrefsPrompt)
  288.  
  289. (if (exists (tackon defaultdest "SHOW_DT.dopus5") (noreq))
  290.     ((set MPEG_flag 1)
  291.      (if (exists ("ENVARC:SHOW_opus5.prefs") (noreq))
  292.          (if (askbool
  293.              (prompt MPEGPrompt)
  294.              (help " ")
  295.              (default 1))
  296.              (set MPEG_flag 0))    
  297.  
  298.     )))
  299.  
  300. (if (= MPEG_flag 1)
  301. (
  302.  
  303.  ((set PROZ (askchoice
  304.     (prompt PRPrompt)
  305.     (help @askchoice-help)
  306.     (choices "68020/68030" "68040/68060")
  307.     (default 0)
  308.  )))
  309.  
  310.  (set MPEGPLAY "mpeg_play.020")
  311.  (if (= PROZ 1)
  312.     (set MPEGPLAY "mpeg_play.040"))
  313.  
  314.  
  315.  ((set MPEGDir "C:")
  316.     (if (<> 1 (exists (tackon MPEGDir MPEGPLAY)))
  317.      (until (= flag_1 1)
  318.            ((set MPEGDir (askdir
  319.             (prompt (CAT MPPrompt MPEGPLAY MPPrompt2))
  320.             (help    @askdir-help)
  321.             (default "C:")
  322.                 ))
  323.            (if (<> 1 (exists (tackon MPEGDir MPEGPLAY)))
  324.              (if (askbool
  325.                  (prompt (CAT MPEGPLAY MPERROR))
  326.                  (help " "))
  327.                  ((set flag_1 1)
  328.                  (set MPEGDir "C:")))
  329.                  (set flag_1 1))
  330.            ))
  331.     )             
  332.  )
  333.  
  334.  (set MPPLAYER (tackon MPEGDir MPEGPLAY))
  335.  
  336.     (set GRAFIK (askchoice
  337.     (prompt GRAFIKPrompt)
  338.     (help @askchoice-help)
  339.     (choices "Gray" "Color" "HAM6" "Hires HAM (Default AGA)" "Cybergrafix (Default Cgfx)")
  340.     (default 4)
  341.  ))
  342.  
  343.    ((if (= GRAFIK 0)
  344.         (set MPOPTION "dither color"))
  345.     (if (= GRAFIK 1)
  346.         (set MPOPTION "dither color"))
  347.     (if (= GRAFIK 2)
  348.         (set MPOPTION "dither ham6"))
  349.     (if (= GRAFIK 3)
  350.         (set MPOPTION "dither hiresham"))
  351.     (if (= GRAFIK 4)
  352.         (set MPOPTION "dither cybergfx"))
  353.  )
  354.  
  355.  (set MPOPTION2 " ")
  356.  
  357.  (if (OR (= GRAFIK 4) (= GRAFIK 5))
  358.     ((set SCREEN (askchoice
  359.     (prompt SCREENPrompt)
  360.     (help @askchoice-help)
  361.     (choices "320x240x16M" "640x480x16M" "800x600x16M" "Selectable")
  362.     (default 1)
  363.  ))
  364.  
  365.    ((if (= SCREEN 0)
  366.         (set MPOPTION2 " modeid 40120050"))
  367.     (if (= SCREEN 1)
  368.         (set MPOPTION2 " modeid 40120051"))
  369.     (if (= SCREEN 2)
  370.         (set MPOPTION2 " modeid 40120052"))
  371.     (if (= SCREEN 3)
  372.         (set MPOPTION2 " "))
  373.  )))
  374.  
  375.  (textfile 
  376.     (dest "ENVARC:show_opus5.prefs")
  377.         (append ";$VER: Settings file for SHOW_DT.dopus5 1.0\n" MPPLAYER "\n" (CAT MPOPTION MPOPTION2))
  378.  )
  379.  (textfile 
  380.     (dest "ENV:show_opus5.prefs")
  381.         (append ";$VER: Settings file for SHOW_DT.dopus5 1.0\n" MPPLAYER "\n" (CAT MPOPTION MPOPTION2))
  382.  )
  383.  
  384. ))
  385.  
  386.  
  387. ;*********************************************
  388. ; set guidedir
  389.  
  390. (message GuidePrompt)
  391. (if (>= @user-level 1)
  392. (set GuideDir (askdir
  393.     (prompt GuideDirPrompt)
  394.     (help    @askdir-help)
  395.     (default "DOpus5:")
  396. )))
  397.  
  398.  
  399. (copyfiles
  400.     (prompt    GuideCopyPrompt)
  401.     (help    @copyfiles-help)
  402.     (source "show.readme")
  403.     (dest    GuideDir)
  404.         (confirm "EXPERT")
  405.         (optional "force")
  406.     (infos)
  407. )
  408.  
  409. (copyfiles
  410.     (prompt    GuideCopyPrompt)
  411.     (help    @copyfiles-help)
  412.     (source "show.guide")
  413.     (dest    GuideDir)
  414.         (confirm "EXPERT")
  415.         (optional "force")
  416.     (infos)
  417. )
  418.  
  419. (complete 100)
  420.  
  421. (if (<> defaultdest "DOpus5:Arexx")
  422.     (message OpusEdit))
  423.  
  424. (delete (tackon GuideDir ".info"))
  425.  
  426.  
  427. (EXIT #exitMsg )
  428.